home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG Library 8 / PC-SIG Library CD-ROM (8th Edition) (1990-04).iso / 201_300 / disk0203 / bless.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-11-09  |  640 b   |  31 lines
  1. 5  KEY OFF
  2. 10  A$ = "mbo3f2e4d4e8.d16c1g2
  3. 15  PLAY A$
  4. 20  GOSUB 500
  5. 30  B$ = "f4g4a1g8a8b-4d2b-4a4c2f8g8a4g8f8g4f8e8f1
  6. 40  PLAY B$
  7. 50  C$ = "e8.f16g4c2f8.g16a4c2g8.a16b-4e2a8.b-16o4c1d2c4o3b-4a8g8f2b-2
  8. 60  PLAY C$
  9. 70  D$ = "a2g2o4c1d2c4o3b-4a8g8f2b-4a2g2f1
  10. 80  PLAY D$
  11. 85  LOCATE 1,1:PRINT " God Bless America"
  12. 90  FOR N = 1 TO 21:PRINT " God Bless America":NEXT N
  13. 94  COLOR 0,7:LOCATE 25,10: PRINT ">>>>>>This message is brought to you by capitalism":COLOR 7,0
  14. 100  END
  15. 500  CLS
  16. 510  R = 5:COL = 30
  17. 520  R1 = R
  18. 530  FOR N = 1 TO 6
  19. 540  R = R1 - 1 + N
  20. 541  LOCATE R, COL
  21. 542  PRINT STRING$(15,"*");
  22. 560  PRINT STRING$(34,223)
  23. 570  NEXT N
  24. 571  R1 = R
  25. 572  FOR N = 1 TO 6
  26. 573  R = R1  + N
  27. 574  LOCATE R, COL
  28. 575  PRINT STRING$(49 ,223)
  29. 576  NEXT N
  30. 580  RETURN
  31.